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g 
tb-se =1984 02:17:41 AX-11 Bliss-32 V4.0-74 Pa 1 
1 ~300 71387 Og rida MTAACPeSRETEXPINE B30 04 aad (1) 
1 
§ MODULE EXPIRE ( LANGUAGE ( BLASS ze , * 
IDENT = ‘V04- ' 
4 Y= 
5 : BEGIN 
097 ! leutenceneeneententenrenteennereererrnererterentretnetnntnetentnntnernnnnntes 
'® oy 
§ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
1) ; . ALL RIGHTS RESERVED. * 
° ® 
' ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *« 
014 1 !* ONLY IN ACCORDANCE WITH E TERMS OF SU ICENSE D WITH TH * 
0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
B018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
id 1 !® ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Big : + TRANSFERRED. * 
. ® 
80 QO 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
+ § : ;* CORPORATION. : 
§ 4 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8 ? : ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ® 
i] 
0038 STE LoTR Yee NOE a TS ea, 
$080 1 !e¢ 
0031 1! 
a8 ; : : FACILITY: MTAACP 
09 1 ' ABSTRACT: 
035 1! This module checks that either override expiration date 
Boss ; } was a mount parameter or the file has expired. 
0038 ENVIRONMENT : 
0040 1: Starlet operating system, including privileged system services 
0041 1! and internal exec routines. 
94 4 & 
004 1 lee 
044 1 
045 1! 
Bee 1! 
04 ' : AUTHOR: D. H. GILLESPIE, CREATION DATE: 7-JUN-77 
4) MODIFIED BY: 
ie VO2-004 DMw00040 David Michael Walp 2-0ct-1981 
2¢ : Handle Expiration date of ‘* 00000" 
541 v02-003 pmw00033 David Michael Walp 18-Aug-1981 
Bez : : Looked at MVL Override Bit when override option is used 
oe9 1! V02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 
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4 1 REQUIRE 'SRCS$:MTADEF.B32'; 
448 1 


LIBRARY "SYSSLIBRARY:LIB.L32'; 


9 
EXPIRE 1$zSe0-1984 03:17:41 yatatt BLisg=32 4.02742 Page 3 


H pe4 168 } GLOBAL ROUTINE EXPIRED (ADDR) : COMMON_CALL = 

: +4 4 1 '44 

; 0 4 1! 

3; 4 1 ! FUNCTIONAL DESCRIPTION: 

: if 454 1! This routine determines if a file has expired or override expiration 
: i 36 : : was entered on mount. 

cs ee 4 5 1 ! CALLING SEQUENCE: 

; $28 1! EXPIRED (ARG1) 

oe) ar 459 1! 

; 3660 1 ! INPUT PARAMETERS: 

; 461 1! ARG1 = address of date in yyddd format 

; 80 Be88 1! 

. 8 0465 1 ! IMPLICIT INPUTS: 

; 8¢ be8e : CURRENT_VCB = address of current vcb, override expiration indicator 
; 84 0466 1 ! OUTPUT PARAMETERS: 

; 685 0467 1! NONE 

3; 68 0468 1 ! 

H 87 0469 1 ! IMPLICIT OUTPUTS: 

; 8 0470 1! If file has not expired and override oxel ration is not set, 

3 4 Bor) ! then error exit is taken with SS$_FILNOTEXP in user status. 

; 91 04735 1 ! ROUTINE VALUE: 

; 4 0474 1! 0 - file not expired 

; F 0475 1! 1 = file expired 

; 94 0476 1! 

; 0477 1 ! SIDE EFFECTS: 

; «296 0478 1! none 

; 697 0479 1! 

; 0480 1 !-- 

; WW 0481 1 

; 100 048 BEGIN 

; 101 048 

3 10¢ 0484 EXTERNAL REGISTER 

; Ww 0485 COMMON_REG; 

3; 104 page 

; 105 048 EXTERNAL ROUTINE 

: 106 0488 CALDAYNO, ! calculate day number given 64 bit 
: 107 489 CONVDATE_J2R, ! convert ANSI Julian to reg date 
3; 108 490 SYSSBINTIM : ADDRESSING_MODE (ABSOLUTE),  ! get binary time 
3 44 ed SYSSGETTIM : ADDRESSING_MODE (ABSOLUTE); ! get system time 
: 255 49 LOCAL 

3 136 494 DATE_TYPE : LONG ' value of convert call 

3; (611 495 REGDATE : VECTOR (12, BYTE), ! input DD-MMM-YYYY 

: (114 95 DATE : VECTOR ‘ ! binary input date 

: 6115 49 TODAY : VECTOR e ' binary today 

; 116 98 DESC1 : VECTOR C2, LONG), ! descr pyor 

: 117 499 MVL_ENTRY : REF BBLOCKVECTOR C,MVLSK_LENGTH); 

; «6118 500 ! pointer to the MVL_ENTRY 
3 6119 501 

: 120 5 § 

3 : 1 2 : get a handle on the MVL entry 

‘4% : 505 MVL_ENTRY = (.CURRENT_VCB C VCBSL_MVL J) + MVLSK_FIXLEN; 
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BEGIN 

} first convert input date to date starlet can understand 
DATE_TYPE = CONVDATE_J2R(REGDATE, .ADDR); 

} if the date was invalid then return not expired 

IF .DATE_TYPE EQL 0 THEN RETURN 0; 

if the date was Julian zero then return expired 

IF .DATE_TYPE EQL 2 THEN RETURN 1; 


ney convert input date to 64 bit binary and get today's date in 64 
nary 
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calculate day number given 64 bit format 
CALDAYNO(DATE, TODAY); 
finally is the file expired 


iF .DATE GTRU .TODAY THEN RETURN 0; 


RETURN 1; 


ea a ak ad ak at = = 2 2 = = ot 2“ 2 = 2 = 2 I 2s Ls SS YY 


AAAS MNMMNMMNNVN NI BEEP PEEP 
VEWN SO ODNAUE WN O OONAUES WIN SQ OVOONOULS WN OOODNO 


=NVNINNAWA AWWA AIA AAA NAINA AAA AANA AAAI 


WN = SO OONAUESWN —$ O OONOUES WN SHO ODODNAOUE WN OOONIOUS 


Be Se Se Ge Se Se Ge Ge Fe Se Se Ge Be Se Ge Se Ge Ge Ss Se Se SH Se Se Se SF Ss SF Se FH Se SFOs FHSS S8 es Se SH es 


ea ah dh dh dh db bbb budb dh db Ab Ab ab ab ah ah ah ah ahah slab eal ales eal 


GOQOQoooooooooooooooooooooocoo 
Foe at et ae th ob oh eh aden 


END; 
! end of routine 
TITLE EXP RE 
SIDENT \V04-000\ 
.EXTRN CALDAYNO, CONVDATE_J2R 
-EXTRN SYSSBINTIM, SYSSGETT TIM 
-PSECT S$CODES,.NOWRT,2 
0000 000 ENTRY EXPIRED, Save nothing 
SE 4 C2 000 SUBL ¢ 436. 5 
34 AB 4 € ADDL3 #36 2 (CURRENT _VCB), MVL_ENTRY 
o¢ AB £9 A LBC ©—-_ 44 (EURREN - 1$ 
0 g C MOVZWL TAC CURRENT 8)’ RO 
A140 7F 0001 PUSHAG 7(MVL_ENTRY) CROJ 
9E EO 0001 BS #2, atSP)+, 


aw 


N 9 
EXPIR 16-Sep-1984 02:17 AX-11 Bliss-32 V4.0-74 Page 
v04-0 aaa 1 9:17 $f MTAACPCSRETERPINE 03504 9 
04 AC BD 1A 1$: PUSHL DR : 
1¢ A F 1 PUSHAB eae 3 
0000G CF F CALLS #2, CONVDATE_J2R : 
D TSTL ATE_TYPE ; 
1 0 BEQL F 
02 ) 9 CMPL DATE_TYPE, #2 5 
1 C BEQL $ 
6E 0c g E MOVL 12, DESC1 3 
04 AE 18 Ar : 1 MOVAB REGDATE DESC1+4 ; 
3 AE 20 9 6 MOVB #32, REGDATE+11 ; 
10 AE 9F OO003A PUSHAB DATE : 
04 aS oF 8 PUSHAB gest) 3 
00000000G 9F 02 FB 4 CALLS #2, @#SYSSBINTIM : 
08 AE 9F 0004 PUSHAB 3 
00000000G 9F 01 FB Benes CALLS #1, @#SYSSGETTIM : 
08 AE 9F 00051 PUSHAB TODAY : 
14 Ag oF Bn 38 PUSHAB DATE 3 
0000G CF 02 FB 00057 CALLS #2, CALDAYNO : 
08 AE 10 AE D1 b905¢ CMPL ATE, TODAY : 
04 1A 00061 BGTRU 3 
50 01 DO 00063 2$: MOVL #1, RO $ 
04 00066 RET 3 
50 D4 00067 3$ CLRL RO 3 
04 00069 RET 5 
; Routine Size: 106 bytes, Routine Base: S$CODE$ + 0000 
; 164 0546 1 
3; 165 0547 1 END 
; 166 0548 1 
3 167 0549 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
3; SCODES 106 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: ee ee. NR eee ps ES Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 


-$255$DUA28 : CSYSLIBILIB.L32;1 18619 10 0 1000 00:01.7 
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; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:EXPIRE/OBJ=OBJ$:EXPIRE MSRC$:EXPIRE/UPDATE=(ENHS$:EXPIRE) 


Size: 106 ode : 0 data bytes 
Run Time: H 
Elapsed Time: 
Lines/CPU Min: 
Lexenes/CPU-Rin: 207 
"| Used: 83 pages 
nome ation Complete 
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